(dired-compress-file): Fix previous change.

diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index dd266ce8ae11453c122cf81b5d1cf87841ff9031..ea5aca6b898ab38467423d933ac2bcf385e2d236 100644 (file)
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -517,7 +517,7 @@ and use this command with a prefix argument (the value does not matter)."
             (string-match "\\.z$" file))
           (if (not (dired-check-process (concat "Uncompressing " file)
                                         "gunzip" file))
-              (substring file 0 -3)))
+              (substring file 0 -2)))
          (t
           ;;; Try gzip; if we don't have that, use compress.
           (condition-case nil